home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / BPC-TRTL.ZIP / SYSTEM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-05-30  |  1.1 KB  |  44 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       Tiny Runtime Library                            }
  6. {                                                       }
  7. {       Copyright (c) 1995 by Solar Designer            }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit System;
  12. {$R-,S-,Q-,I-,N-,E-}
  13.  
  14. { This unit implements Turbo Pascal's runtime library. When compiling
  15.   this unit, the compiler automatically includes a boot-strap symbol
  16.   table (SYSTEM.TPS) which declares all built-in types, procedures, and
  17.   functions. }
  18.  
  19. interface
  20.  
  21. var
  22.    _Vars           :record end;
  23. const
  24.    _Consts         :record end=();
  25.  
  26. implementation
  27. {$L SYSTEM.OBJ}
  28.  
  29. procedure InitTurbo; far; assembler;
  30. asm
  31. {$IfOpt G+}
  32.    push seg _Consts
  33.    pop  ds
  34. {$Else}
  35.    mov  ax,seg _Consts
  36.    mov  ds,ax
  37. {$EndIf}
  38. end;
  39.  
  40. procedure HaltError; far; external;
  41. procedure HaltTurbo; far; external;
  42.  
  43. end.
  44.